home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1989 January / Ahoy_Magazine_89-01_1989_Double_L.d64 / Easy Address (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  860b  |  17 lines
  1. 10 rem * easy address by david roth *
  2. 20 fori=828 to 1008:reada:ck=ck+a:pokei,a:next
  3. 30 if ck<>20726 then print"error in data statements.":stop
  4. 50 print chr$(147)"use ctrl/a to get addresses.":sys 828:new
  5. 60 data 120,169,77,141,20,3,169,3,141,21,3,169,0,133,2,88
  6. 70 data 96,173,141,2,41,4,240,10,165,197,201,10,208,4,165,2
  7. 80 data 240,3,76,49,234,169,255,133,2,169,0,133,187,169,2,133
  8. 90 data 188,169,0,133,183,165,209,166,210,133,3,134,4,169,5,24
  9. 100 data 101,3,133,3,169,0,101,4,133,4,160,19,177,3,201,16
  10. 110 data 208,92,160,0,177,3,201,34,208,84,230,3,177,3,201,34
  11. 120 data 240,24,72,41,64,170,104,41,63,201,32,176,2,9,64,224
  12. 130 data 64,208,2,9,128,145,187,200,16,226,132,183,169,96,133,185
  13. 140 data 169,8,133,186,32,213,243,165,186,32,180,255,165,185,32,150
  14. 150 data 255,166,214,160,29,24,32,240,255,32,165,255,170,32,165,255
  15. 160 data 32,205,189,166,214,160,0,24,32,240,255,32,66,246,169,0
  16. 170 data 133,2,76,49,234
  17.